home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / DAYNUM.BAS < prev    next >
BASIC Source File  |  1985-06-02  |  2KB  |  46 lines
  1. 10  REM DAYNUMBER
  2. 20  CLS
  3. 30  PRINT : PRINT : PRINT:
  4. 40  PRINT TAB(30) " A PROGRAM"
  5. 50  PRINT
  6. 60  KEY OFF
  7. 70  PRINT TAB(20) "----------------------------------"
  8. 80  PRINT TAB(20) "* FINDS DAYS ELAPSED SINCE JAN 1 *"
  9. 90  PRINT TAB(20) "----------------------------------"
  10. 100  PRINT: PRINT
  11. 110  PRINT TAB(28) "BY CHRIS SPRATT"
  12. 120  PRINT
  13. 130  PRINT TAB(32) "OCT 1984"
  14. 140  PRINT
  15. 150  PRINT: PRINT :LOCATE 24,25
  16. 160  PRINT "PRESS ANY KEY TO CONTINUE"
  17. 170  IF INKEY$ = "" THEN 170
  18. 180  CLS : PRINT : PRINT : PRINT: PRINT
  19. 190  DATA 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
  20. 200  REM
  21. 210  REM --- INPUT AND OUTPUT INSTRUCTIONS ----
  22. 220  REM
  23. 230  PRINT TAB(22) "DAYS ELAPSED SINCE JANUARY 1ST"
  24. 240  PRINT : PRINT
  25. 250  PRINT  TAB( 8) " TO DETERMINE THE NUMBER OF DAYS ELAPSED SINCE JANUARY 1ST"
  26. 260  PRINT
  27. 270  PRINT TAB(19): INPUT "   ENTER MONTH (1 - 12) ----", FINAL.MO
  28. 280  PRINT TAB(19): INPUT "   ENTER THE DAY (1 -31) ---", DAY.FINAL
  29. 290  PRINT
  30. 300  REM
  31. 310  REM ---- MAIN PROGRAN: FINDS ELAPSED DAYS ----------
  32. 320  REM
  33. 330  FOR MO = 1 TO FINAL.MO - 1
  34. 340  READ DAY.MO                      'READS DATA FROM 180
  35. 350  DAYS = DAYS + DAY.MO
  36. 360  NEXT
  37. 370  DAYS.TOT = DAY.FINAL + DAYS
  38. 380  PRINT TAB(18):   INPUT "         LEAP YEAR Y/N";B$
  39. 390  IF B$ = "Y" THEN DAYS.TOT = DAYS.TOT + 1  ELSE 430
  40. 400  REM
  41. 410  REM ---- PROGRAM OUTPUT -----------------------------
  42. 420  REM
  43. 430  PRINT :PRINT
  44. 440  PRINT TAB(13)  " ====" DAYS.TOT " DAYS HAVE ELAPSED SINCE JAN. 1ST ===="
  45. 450  END
  46.